home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / pcboard / maill501.zip / MAILLIST.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1996-10-05  |  3KB  |  155 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     BigStr   BIGSTR001
  23.     BigStr   BIGSTR002
  24.     BigStr   BIGSTR003
  25.     BigStr   BIGSTR004
  26.     BigStr   BIGSTR005
  27.     BigStr   BIGSTR006
  28.     BigStr   BIGSTR007
  29.     BigStr   BIGSTR008
  30.  
  31. ;------------------------------------------------------------------------------
  32.  
  33.     BIGSTR002 = Date()
  34.     BIGSTR001 = ReadLine(PCBDat(), 29)
  35.     INTEGER001 = FileInf(BIGSTR001, 4) / 400
  36.     INTEGER003 = INTEGER001
  37.     BIGSTR004 = Chr(34)
  38.     BIGSTR005 = Chr(44)
  39.     FAppend 1, PPEPath() + PPEName() + ".LST", 2, 0
  40.     FDefOut 1
  41.     Cls
  42.     Color DefColor()
  43.     StartDisp 1
  44.     PrintLn "@X10┌──────────────────────────────────────────────────────────────────────────@X19┐@X0F"
  45.     PrintLn "@X10│@X1EMailing List Builder v5.01       (c)1996 Practical Computer Services      @X19│@X0F"
  46.     PrintLn "@X10└@X19──────────────────────────────────────────────────────────────────────────┘@X0F"
  47.     PrintLn "@X10┌──────────────────────────────────────────────────────────────────────────@X19┐@X0F"
  48.     PrintLn "@X10│ @X1AProcessing User Record #:             Records left to process:           @X19│@X0F"
  49.     PrintLn "@X10└@X19──────────────────────────────────────────────────────────────────────────┘@X0F"
  50.     For INTEGER002 = 2 To INTEGER001
  51.         AnsiPos 29, 5
  52.         PrintLn "@X1C", INTEGER002
  53.         AnsiPos 66, 5
  54.         PrintLn "       "
  55.         AnsiPos 66, 5
  56.         PrintLn "@X1E", INTEGER003 - INTEGER002
  57.         GetAltUser INTEGER002
  58.         BIGSTR006 = U_Sec
  59.         BIGSTR003 = U_ExpDate
  60.         BIGSTR007 = U_LDate()
  61.         BIGSTR008 = U_Logons()
  62.         FDPutLn U_Name() + BIGSTR005 + RTrim(U_HVPhone, " ") + BIGSTR005 + RTrim(U_BDPhone, " ") + BIGSTR005 + RTrim(U_Addr(0), " ") + BIGSTR005 + RTrim(U_Addr(1), " ") + BIGSTR005 + RTrim(U_Addr(2), " ") + BIGSTR005 + RTrim(U_Addr(3), " ") + BIGSTR005 + RTrim(U_Addr(4), " ") + BIGSTR005 + RTrim(U_Addr(5), " ") + BIGSTR005 + RTrim(U_Alias, " ") + BIGSTR005 + RTrim(U_Cmnt1, " ") + BIGSTR005 + RTrim(U_Cmnt2, " ") + BIGSTR005 + RTrim(U_Notes(0), " ") + BIGSTR005 + RTrim(U_Notes(1), " ") + BIGSTR005 + RTrim(U_Notes(2), " ") + BIGSTR005 + RTrim(U_Notes(3), " ") + BIGSTR005 + RTrim(U_Notes(4), " ") + BIGSTR005 + RTrim(U_Ver, " ") + BIGSTR005 + RTrim(U_Pwd, " ") + BIGSTR005 + BIGSTR006 + BIGSTR005 + BIGSTR003 + BIGSTR005 + BIGSTR007 + BIGSTR005 + BIGSTR008
  63.     Next
  64.     FClose 1
  65.     AnsiPos 66, 5
  66.     PrintLn "@X1EAll done!"
  67.     AnsiPos 0, 7
  68.     Newline
  69.     AnsiPos 0, 8
  70.     PrintLn "@X0FPractical Computer Services  (609) 584-7947. FreeWare, Enjoy!"
  71.     End
  72.  
  73. ;------------------------------------------------------------------------------
  74. ;
  75. ; Usage report (before postprocessing)
  76. ;
  77. ; ■ Statements used :
  78. ;
  79. ;    1       End
  80. ;    1       Cls
  81. ;    1       Color 
  82. ;    2       Goto 
  83. ;    12      Let 
  84. ;    11      PrintLn 
  85. ;    1       If 
  86. ;    1       FAppend 
  87. ;    1       FClose 
  88. ;    1       StartDisp 
  89. ;    1       Newline
  90. ;    6       AnsiPos 
  91. ;    1       FDefOut 
  92. ;    1       FDPutLn 
  93. ;    1       GetAltUser 
  94. ;
  95. ;
  96. ; ■ Functions used :
  97. ;
  98. ;    1       /
  99. ;    47      +
  100. ;    1       -
  101. ;    1       <
  102. ;    1       <=
  103. ;    2       >=
  104. ;    1       !
  105. ;    2       &&
  106. ;    1       ||
  107. ;    2       Chr()
  108. ;    18      RTrim()
  109. ;    1       Date()
  110. ;    1       U_Name()
  111. ;    1       U_LDate()
  112. ;    1       U_Logons()
  113. ;    1       PCBDat()
  114. ;    1       PPEPath()
  115. ;    1       ReadLine()
  116. ;    1       DefColor()
  117. ;    1       FileInf()
  118. ;    1       PPEName()
  119. ;
  120. ;------------------------------------------------------------------------------
  121. ;
  122. ; Analysis flags : RdH
  123. ;
  124. ; R - Read user ■ 5
  125. ;     User records are read, this may signify that someone wants to get
  126. ;     various informations about a user (for example his password), but
  127. ;     this may also be normal for a program accessing user records (for
  128. ;     example a User Editor)
  129. ;     ■ Search for : GETALTUSER
  130. ;
  131. ; d - Access PCBOARD.DAT ■ 2
  132. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  133. ;     for many PPE so they can find various informations on the system
  134. ;     (system paths, max number of lines in messages, ...) but it may also
  135. ;     be a way to gather vital informations.
  136. ;     ■ Search for : PCBDAT()
  137. ;
  138. ; H - Read Password or Password History ■ 5
  139. ;     Program is reading the user's password or last password history
  140. ;     This may be ok for a password manager, but it is very suspect. Check!
  141. ;     ■ Search for : U_PWDHIST, U_PWD
  142. ;
  143. ;------------------------------------------------------------------------------
  144. ;
  145. ; Postprocessing report
  146. ;
  147. ;    1       For/Next
  148. ;    0       While/EndWhile
  149. ;    0       If/Then or If/Then/Else
  150. ;    0       Select Case
  151. ;
  152. ;------------------------------------------------------------------------------
  153. ;                 AEGiS Corp - Break the routines, code against the machines!
  154. ;------------------------------------------------------------------------------
  155.